Komputer for Alle 2002 #12/K-CD-12-2002.ISO/Tools/K-CS.dcr/00208_Show Text.ls

Text File | 2002-04-19 | 385 b | 15 lines

on new me
  set the visible of sprite the spriteNum of me to 1
end

on mouseUp me
  repeat with Index = 64 to 84
    if not (Index mod 3) = 0 then
      set the locV of sprite Index to 1000
    end if
  end repeat
  set the locV of sprite (the spriteNum of me + 1) to the locV of sprite the spriteNum of me
  set the locV of sprite (the spriteNum of me + 2) to 201
  updateStage()
end